unit objpas;

interface

type
 Exception = class
 private
  fMsg: pchar;
 public
  constructor Create;
  constructor Create(Msg: pchar);
  destructor Destroy; override;
  
  property Message: Pchar read fMsg;
 end;

implementation

constructor Exception.Create;
begin
   inherited Create;
   fMsg := nil;
end;

constructor Exception.Create(Msg: pchar);
begin
   inherited Create;
   fMsg := Msg;
end;

destructor Exception.Destroy;
begin
   StrDispose(fMsg);
   inherited Destroy;
end;

end.
